home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / internet-tools / ftp-guide / ftpget < prev    next >
Text File  |  1995-10-15  |  982b  |  31 lines
  1. /* $VER: FTPGET v1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se
  2.  *
  3.  * IMPORTANT: You MUST have FTPMOUNT installed which makes any ftp site
  4.  *            a part of amigados. Look at aminet:pub/disk/ftpmount.lha
  5.  *
  6.  */
  7.  
  8. parse arg source dest
  9.  
  10. call addlib('rexxreqtools.library',0,-30,0)
  11. call addlib('rexxsupport.library',0,-30,0)
  12.  
  13. if source = '' then source=rtfilerequest('ftp:','','Select a ftp site and file...')
  14. if source ~= '' & dest = '' then dest=rtfilerequest('','','Select destination...')
  15. if dest = '' then dest = '""'
  16.  
  17. if source = '?' | source = '' then do
  18.     say 'FTPGET V1.00 by Christer Bjarnemo  mr.bjarnemo@mn.medstroms.se'
  19.     say ''
  20.     say 'USAGE: ftpget [ftp:address/path/file] [dest]'
  21.     say ''
  22.     say 'Example: ftpget ftp:ftp.luth.se/pub/aminet/index work:trashcan'
  23.     say ''
  24.     say 'If anything is omitted, a reqtools requester will appear..'
  25.     say 'Its also possible to use wildcards...'
  26.     exit
  27.     end
  28.  
  29. address command 'makedir 'source
  30. address command 'copy 'source' 'dest
  31.